Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/IPTR.DIR/00022_Script_MOVIE SCRIPT

Text File | 1994-10-23 | 535b | 32 lines

--NOTE: please check how this looks on 16-bit color monitor

on startMovie
  set the stagecolor to 255 --black
  cursor 200
end

on enterframe
  cursor 200
end

on waitQT chan
  if the movierate of sprite chan = 1 then go the frame
end

on waitsound chan
  if soundBusy(chan) then go the frame
end

on waiting theTicks
  --must be preceded by startTimer
  if theTicks >= the timer then go the frame
end

on keyDown
   global autoplaying
  put 0 into autoplaying
  unloadCast
  go to label ("end")
end